home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #12 / Amiga Plus CD - 2002 - No. 12.iso / Tools / Freeware / PerfectPaint / rexx / Alchemy / Script / OldMosaic.rx < prev    next >
Encoding:
Text File  |  2001-10-23  |  515 b   |  39 lines
  1. /* Alchemy script
  2. 000
  3. 0
  4. 0
  5. */
  6.  
  7.     options results
  8.   parse ARG Port x1 y1 x2 y2 type b
  9.     ADDRESS value Port
  10.  
  11.     pp_UpdateUndoBox x1-1 y1-1 x2+1 y2+1
  12.     pp_Compose 0 100 0
  13.     pp_ComposeReqOff
  14.     pp_EffectOn
  15.     pp_AvoidRefresh
  16.  
  17.     pp_Progresstext 'OldMosaic'
  18.     tot=4
  19.  
  20.     pp_Progress 1 tot    
  21.     pp_PointCellular 10 3
  22.     pp_BoxF x1 y1 x2 y2
  23.  
  24.     pp_Progress 2 tot
  25.     pp_Displace 2
  26.     pp_BoxF x1 y1 x2 y2
  27.  
  28.     pp_Progress 3 tot
  29.     pp_Maximum 2
  30.     pp_BoxF x1 y1 x2 y2
  31.  
  32.     pp_Progress 4 tot
  33.     pp_EffectOff
  34.     pp_ComposeReqOn
  35.     pp_PermitRefresh
  36.     pp_ProgressClr
  37.  
  38.     Exit
  39.